From 7cc793b53fe43318d7bd040c6f157e133094d1d1 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 19 Apr 2004 15:17:04 +0000 Subject: [PATCH] (Feql): New function. (syms_of_fns): defsubr it. --- src/fns.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/src/fns.c b/src/fns.c index adb262ee11d..3076a000992 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2135,6 +2135,18 @@ The PLIST is modified by side effects. */) return plist; } +DEFUN ("eql", Feql, Seql, 2, 2, 0, + doc: /* Return t if the two args are the same Lisp object. +Floating-point numbers of equal value are `eql', but they may not be `eq'. */) + (obj1, obj2) + Lisp_Object obj1, obj2; +{ + if (FLOATP (obj1)) + return internal_equal (obj1, obj2, 0, 0) ? Qt : Qnil; + else + return EQ (obj1, obj2) ? Qt : Qnil; +} + DEFUN ("equal", Fequal, Sequal, 2, 2, 0, doc: /* Return t if two Lisp objects have similar structure and contents. They must have the same data type. @@ -5740,6 +5752,7 @@ used if both `use-dialog-box' and this variable are non-nil. */); defsubr (&Sput); defsubr (&Slax_plist_get); defsubr (&Slax_plist_put); + defsubr (&Seql); defsubr (&Sequal); defsubr (&Sequal_including_properties); defsubr (&Sfillarray); -- 2.30.2